home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
distortfx
/
camerainterferencebevel
< prev
next >
Wrap
Text File
|
1999-06-15
|
1KB
|
53 lines
Filter Factory Plugin Information:
FILENAME: MIRRBEVL.8BF
CATEGORY:
Alf's Border FX
TITLE:
Mirror Bevel
COPYRIGHT:
Copyright ) 1996 Alfredo Mateus & Kipp McMichael
All Rights Reserved.
AUTHOR:
Alfredo Mateus & Kipp McMichael
Map 0: [Map 0:]
Map 1: [Map 1:]
Map 2: [Map 2:]
Map 3: [Map 3:]
Control 0: [Bevel Width]
Control 1: [Select Mirror]
Control 2: [Control 2:]
Control 3: [Control 3:]
Control 4: [Control 4:]
Control 5: [Control 5:]
Control 6: [Control 6:]
Control 7: [Control 7:]
R=
(x<val(0,0,X/2)&&x*Y<=X*y&&x*Y<=X*(Y-y) ?ctl(1)<128?src(2*x,y,z) : src(X-2*x,y,z) :
(y<val(0,0,Y/2)&&x*Y>=X*y&&Y*(X-x)>=X*y ?ctl(1)<128?src(x,2*y,z) : src(x,Y-2*y,z) :
(x>val(0,X,X/2)&&(X-x)*Y<=X*y&&x*(Y-y)>=y*(X-x) ? src(2*x-X,y,z) :
(y>val(0,Y,Y/2)&&x*Y>=X*(Y-y)&&x*(Y-y)<=y*(X-x) ? src(x,2*y-Y,z) : c))))
G=
(x<val(0,0,X/2)&&x*Y<=X*y&&x*Y<=X*(Y-y) ?ctl(1)<128?src(2*x,y,z) : src(X-2*x,y,z) :
(y<val(0,0,Y/2)&&x*Y>=X*y&&Y*(X-x)>=X*y ?ctl(1)<128?src(x,2*y,z) : src(x,Y-2*y,z) :
(x>val(0,X,X/2)&&(X-x)*Y<=X*y&&x*(Y-y)>=y*(X-x) ? src(2*x-X,y,z) :
(y>val(0,Y,Y/2)&&x*Y>=X*(Y-y)&&x*(Y-y)<=y*(X-x) ? src(x,2*y-Y,z) : c))))
B=
(x<val(0,0,X/2)&&x*Y<=X*y&&x*Y<=X*(Y-y) ?ctl(1)<128?src(2*x,y,z) : src(X-2*x,y,z) :
(y<val(0,0,Y/2)&&x*Y>=X*y&&Y*(X-x)>=X*y ?ctl(1)<128?src(x,2*y,z) : src(x,Y-2*y,z) :
(x>val(0,X,X/2)&&(X-x)*Y<=X*y&&x*(Y-y)>=y*(X-x) ? src(2*x-X,y,z) :
(y>val(0,Y,Y/2)&&x*Y>=X*(Y-y)&&x*(Y-y)<=y*(X-x) ? src(x,2*y-Y,z) : c))))
A=
a